home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5938.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  28 lines
  1. 5 GOTO10010
  2. 10 DATAAbsolute temperature,T[K]=t[úC]+273.15,10,20,
  3. 20 DATAHeat capacity,Q=CT=mcT,10,30,
  4. 30 DATAMechanical equivalent of heat,"W=JQ , J=4.19 [J/cal]",20,40,
  5. 40 DATABoyle's law,PV=Constant  (T=constant),30,50,
  6. 50 DATAVolume & Temperature,V=Vß(1+T/273),40,60,
  7. 60 DATACharle's law,V/Vß=T/Tß,50,70,
  8. 70 DATAEquation of state,"PV=nRT , R=8.31 [J/K]",60,80,
  9. 80 DATALaw of partial pressures,P=PÆ+P’+P“+¥¥¥,70,90,1,2A2A3E0000
  10. 90 DATAPressure,P=1/3¥nm“ý,80,100,1,B08C828CB0
  11. 100 DATAInternal energy,U=1/2¥m“ýN=3/2¥nRT,90,110,1,B08C828CB0
  12. 110 DATASpecific heat,"Cv=U/T=3R/2 , Cp=U/T+R=5R/2",100,120,
  13. 120 DATAHalf life,N=Nß(1/2)“    (x=1/T),110,130,1,40F8480000
  14. 130 DATAMass-energy relation ,E=mcý,120,130,
  15. 10010 MODE8:DIM:x=10:y=130:r=x
  16. 10040 DEFCHR$(253)="2E2A3A0000"
  17. 10050 DEFCHR$(252)="123E020000"
  18. 10110 RESTORE(r)
  19. 10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
  20. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  21. 10140 PRINTm$;TAB(l);l$;n$;
  22. 10150 z=ASC(INPUT$(1,@))
  23. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  24. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  25. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  26. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  27. 10280 GOTO10150
  28.